(pcase--app-subst-match): Try and fix performance regression (bug#71398)
authorStefan Monnier <monnier@iro.umontreal.ca>
Sat, 8 Jun 2024 21:34:30 +0000 (17:34 -0400)
committerStefan Monnier <monnier@iro.umontreal.ca>
Sat, 8 Jun 2024 21:34:56 +0000 (17:34 -0400)
commite9a0256a556622474bcbb015f88d790666db2cc9
tree614c7612fe09bf0f5de1231ca6741213d31b8f3b
parent15f515c7a37f29117ff123821265a760ff0d040d
(pcase--app-subst-match): Try and fix performance regression (bug#71398)

* lisp/emacs-lisp/pcase.el (pcase--app-subst-match): Optimize matches
against (quote VAL).
* test/lisp/emacs-lisp/pcase-tests.el (pcase-tests-quote-optimization):
Add new test case.
lisp/emacs-lisp/pcase.el
test/lisp/emacs-lisp/pcase-tests.el